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-- File: ExternalCache.Mesa 
-- Last edited by 

Johnsson; July 20, 1978 2:22 PM 

Barbara; July 7, 1978 12:17 PM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [ 

AddSwapStrategy, CantSwap, SwappingProcedure, SwapStrategy] , 
AltoDefs: FROM "altodefs" USING [PageSize], 
AltoFileDefs: FROM "altof il edef s" USING [fillinDA, FP, vDA], 
BFSDefs: FROM "bfsdefs" USING [ActOnPages. GetNextDA], 
ControlDefs: FROM "control defs" USING [ControlLink] , 
CoreSwapDefs: FROM "coreswapdef s" , 

DebugData: FROM "debugdata" USING [altoXM, debugPilot, mdsContext, onDO], 
DebuggerDefs: FROM "debuggerdef s" USING [LA, LP], 
DebugMiscDef s : FROM "debugmiscdef s" , 
DebugUtil ityDefs: FROM "debuguti 1 itydefs" , 
DebugXMDefs: FROM "debugxmdef s" USING [XMRead, XMWrite], 
DiskDefs: FROM "diskdefs" USING [ 

DA, DC, DH, DiskRequest, DS, DSgoodStatus , DSmaskStatus, 

UnrecoverableDiskError], 
ImageDefs: FROM "imagedofs", 
InlineDefs: FROM "inlinedefs" USING [ 

BITAND, COPY, OIVMOD, LongDivMod, LongMult], 
MiscDefs: FROM "miscdefs" USING [Zero], 
Mopcodes: FROM "mopcodes" USING [zMISC, zRBL, zWBL], 
SegmentDefs: FROM "segmentdef s" USING [ 

DeleteFileSegment , FileHandle, FileSegmentAddress , FileSegmentHandle. 

GetFileSegmentOA, InsertFile, LockFile, NewFileSegment , Read, 

SetFileSegmentDA, Swapin, Unlock], 
SystemDefs: FROM "systemdef s" USING [AllocatePages , FreePages]: 

ExternalCache: PROGRAM 

IMPORTS AllocDefs, BFSDefs, DDptr: DebugData, DebugXMDefs, DiskDefs, MiscDefs, SystemDefs, SegmentDef 
♦ *s 

EXPORTS DebugMiscDefs, DebugUtil ityDefs 

SHARES DiskDefs, SegmentDefs » 

BEGIN 

-- move this to a utility somewhere 

Bound: PUBLIC PROCEDURE [p: UNSPECIFIED] RETURNS [BOOLEAN] - 
BEGIN 

RETURN[LOOPHOLE[p, ControlDefs . Control Link] . tag # unbound] 
END; 

LA: TYPE = DebuggerDefs . LA; 
LP: TYPE = DebuggerDefs. LP; 

-- DO/Pilot Stuff 

PilotFID: TYPE « RECORD [a,b: UNSPECIFIED]; 

PilotDiskLabel: TYPE « RECORD [ 
fid: PilotFID, 
page: CARDINAL, 
fill : ARRAY [0. .5) OF WORD]; 

MapEntry: TYPE « MACHINE DEPENDENT RECORD [ 
flags: MapFlags, 
realPage: [0..7777B]]; 

MapFlags: TYPE « MACHINE DEPENDENT RECORD [ 
LogSE, W, D, Ref: BOOLEAN]; 

Vacant: MapEntry - [[FALSE, TRUE, TRUE. FALSE], 0]; 
Clean: MapEntry » [[FALSE. FALSE, FALSE, FALSE], 0]; 

MapSwapBase: CARDINAL - 4096-266; 

SETF: PROCEDURE [CARDINAL, MapEntry] RETURNS [MapEntry] - 
MACHINE CODE BEGIN Mopcodes . zMISC , 1 END; 

RBL: PROCEDURE [LA] RETURNS [UNSPECIFIED] - 
MACHINE CODE BEGIN Mopcodes . zRBL , END; 
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WBL: PROCEDURE [UNSPECIFIED, LA] - 

MACHINE CODE BEGIN Mopcodes . zWBL , END; 

-- Cache of user memory pages 

CoreSegmentObject: TYPE - RECORD [ 
address: POINTER, 
lastused: CARDINAL, 
mempage: CARDINAL, 
inuse: BOOLEAN, 
dirty: BOOLEAN, 
body: 

SELECT type: * FROM 
alto ■> [ 

segment: SegmentDef s. FileSegmentHandle] , 
pi1ot31 «> [ 
vda: CARDINAL, 
fileid: PilotFID, 
filepage: CARDINAL], 
ENDCASE]; 

CoreSegment: TYPE « POINTER TO CoreSegmentObject; 

maxsegments: CARDINAL » 8; ~- number of pages to keep in core 

CS: ARRAY [0 . .maxsegments) OF CoreSegmentObject; 

CurrentUseValue: CARDINAL; 

CoreFile: SegmentDef s. FileHandle; 

DAs: ARRAY [-1..256] OF AUoFi 1 eDef s . vDA; 

DiskAddresses; DESCRIPTOR FOR ARRAY OF AUoFi 1 eDef s . vDA <- 

DESCRIPTOR[@DAs[0].256]; 
CacheSwap: AllocDef s.SwapStrategy ♦- 

AllocDef s .SwapStrategy[l ink : ,proc:Al locDef s.CantSwap] ; 

InitCoreCache: PROCEDURE [file: SegmentDef s. FileHandle] - 
BEGIN 

i: CARDINAL; 
CurrentUseValue ♦- 0; 

FOR i IN [0. .maxsegments) DO CS[i]. inuse ^ FALSE ENDLOOP; 
CoreFile <- file; 
SegmentDef s.LockFile[CoreFile]; 
AllocDef s .AddSwapStrategy[@CacheSwap]; 
END; 



FlustiCoreCache: PUBLIC Al locDef s .SwappingProcedure 
BEGIN OPEN SegmentOefs; 
did: BOOLEAN *- FALSE; 
i: CARDINAL <- 0; 
cs: CoreSegment; 

CacheSwap .proc <- AllocDef s .CantSwap; 
FOR i IN [0. .maxsegments) DO 
cs^@CS[i]; 
IF cs. inuse THEN 
BEGIN 

FlushCS[cs]; 
did <- TRUE; 
END; 
ENDLOOP; 
CurrentUseValue<-0; 
RETURN[did] 
END; 



Flushes: PROCEDURE [cs: CoreSegment] « 
BEGIN OPEN SegmentOefs; 
WITH cs SELECT FROM 
alto ■> 
BEGIN 

IF dirty THEN segment .write <- TRUE; 
Unlock[segment] ; 
DeleteFileSegment[ segment]; 
END; 
pilotai -> 
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BEGIN 

IF dirty THEN 

WritePi1ot31Page[address, vda, fileid, filepage]; 
SystemDeFs.Fr8ePages[address]; 
END; 

ENDCASE; 
cs.inuse *- FALSE; 
END; 

NewSwateeSegment: PROCEDURE [rnempage: CARDINAL, cs: CoreSegment] « 
BEGIN OPEN SegmentDefs: 
filepage: CARDINAL « SELECT rnempage FROM 

IN[2..253] »> rnempage, 1 «> 254. ENDCASE «> 255; 
seg: FileSegmentHandle » NewFi1eSegment[CoreFile, filepage, 1, Read]; 
SetFileSegmentDA[seg , DiskAddresses[fi1epage]]; 
Swapln[seg]; 

DiskAddresses[f ilepage] *- GetFileSegmentDA[seg] ; 
est ^ [ 

address: FileSegment Ad dress [seg], 

inuse: TRUE, 

dirty: FALSE, 

lastused: , 

rnempage: rnempage, 

body: a1to[seg]]; 
RETURN 
END; 

NonExistentMemoryPage: PUBLIC SIGNAL [page: CARDINAL] « CODE; 
InvalidAddress: PUBLIC SIGNAL [a: LA] = CODE; 

NewVMSegment: PROCEDURE [mempage: CARDINAL, cs: CoreSegment] « 
BEGIN OPEN SegmentDefs; 
ERROR NonExistentMemoryPage [mempage] ; 
-- find file info 

"- can NewAltoSegment or NewPilot31Segment 
END; 

NewAltoSegment: PROCEDURE [fp: POINTER TO Al toFileDef s . FP, filepage: CARDINAL] 
RETURNS [seg: SegmentDefs . F ileSegmentHandle] « 
BEGIN OPEN SegmentDefs; 

seg <- NewFileSegment[InsertFile[f p, Read], filepage, 1, Read]; 
Swapln[seg] ; 
RETURN 
END; 

NewPilotSlSegment: PROCEDURE [ 

vda: CARDINAL, fileid: PilotFID, filepage: CARDINAL] 

RETURNS [p: POINTER] « 

BEGIN 

label: PilotOiskLabel ; 

p ^ SystemDef s .Al locatePages[l]; 

MiscDefs.Zero[@label , SIZE[PilotDiskLabel ]] ; 

label .fid <- fileid; 

label. page *- filepage; 

MoveDiskPage[read , Real31DA[vda] , ©label, p]; 

RETURN 

END; 

GetCS: PROCEDURE [mempage: CARDINAL] RETURNS [sp: CoreSegment] » 
BEGIN 

minUseVal: CARDINAL *- CurrentUseValue; 
minUselndex: CARDINAL ♦- 0; 
i: CARDINAL; 

BEGIN 

FOR i IN [0. .maxsegments) DO 

sp ♦- @CS[i]; 

IF ~sp. inuse THEN GO TO newseg; 

IF sp. mempage « mempage THEN EXIT; 

IF sp. lastused < minUseVal THEN 

BEGIN minUseVal^-sp . las tused ; minUseIndex<~i END; 
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REPEAT FINISHED ■> 
BEGIN 

FOR i IN [0. .maxsegments) DO 
CS[i].1astused <- CS[i] .lastused - minUseVal; 
ENDLOOP; 
CurrentUseValue <~ CurrentUseValue - minUseVal; 
FlushCS[sp ^ 0CS[minUseIndex]]; 
GO TO newseg; 
END 
ENDLOOP: 
EXITS newseg -> 
BEGIN 

cso: CoreSegmentObject; 

IF mempage IN [0..253] THEN NewSwateeSegment[mempage, 0cso] 
ELSE NewVMSegment[mempage, @cso]; 
FOR i IN [0. .maxsegments) DO 
sp <- 0CS[i]; 

IF -sp.inuse THEN BEGIN spt ^ cso; EXIT END; 
REPEAT FINISHED »> ERROR 
ENDLOOP; 
END; 
END; 

sp. lastused ^ CurrentUseValue ^ CurrentUseValue+l; 
CacheSwap.proc <- FlushCoreCache; 
RETURN[sp]; 
END; 



LongREAD: PUBLIC PROCEDURE [a: LA] RETURNS [UNSPECIFIED] ■ 
BEGIN OPEN AUoDefs. InlineDefs; 
mempage, offset: CARDINAL; 

[mempage, offset] <- LongDivMod[LOOPHOLE[a] .PageSize]; 
IF mempage > 255 THEN 
BEGIN 

IF RealMemory[mempage] THEN RETURN[ReadVM[mempage, a]]; 
END 
ELSE 
BEGIN 

IF DDptr.debugPilot THEN 
BEGIN 

m: MapEntry « ReadMap[MapSwapBase+mempage]; 
vp: CARDINAL; 

IF m = Vacant THEN ERROR Inval idAddress[a] ; 
FOR vp IN [0. .253] DO 

IF ReadMap[vp] . realPage = m.realPage THEN 

BEGIN mempage ^ vp; EXIT END; 
REPEAT FINISHED «> RETURN[ReadVM[mempage , a]]; 
ENDLOOP; 
END; 
IF mempage > 253 THEN RETURN[MEMORY[mempage*PageSize+of f set]] ; 
END; 
RETURN [{GetCS[mempage]. address + offset)t]; 
END; 



LongWRITE: PUBLIC PROCEDURE [a: LA, v: UNSPECIFIED] « 
BEGIN OPEN AUoDefs, InlineDefs; 
mempage, offset: CARDINAL; 
s: CoreSegment; 

[mempage, offset] ^ LongDivMod[LOOPHOLE[a], PageSize] ; 
IF mempage > 255 THEN 
BEGIN 
IF RealMemory[mempage] THEN 

BEGIN WriteVM[mempage, a. v]; RETURN END; 
END 
ELSE 
BEGIN 

IF DDptr.debugPilot THEN 
BEGIN 

m: MapEntry « ReadMap[MapSwapBase+mempage]; 
vp: CARDINAL; 

IF m « Vacant THEN ERROR Inval idAddress[a]; 
FOR vp IN [0. .253] DO 

IF ReadMap[vp]. realPage - m. realPage THEN 

BEGIN mempage ^ vp; EXIT END; 
REPEAT FINISHED «> BEGIN Wr i teVM[mempage , a, v]; RETURN END; 
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ENDLOOP; 
END; 
IF mempage > 253 THEN 

BEGIN MEMORY[mempag8*PageSiz0+offset] +- v; RETURN END; 
END; 
((s<-GetCS[mempage]) .address + offset)t ^ v; 
s. dirty ^ TRUE; 
RETURN 
END; 

AREAD, MREAD, SREAD: PUBLIC PROCEDURE [a: UNSPECIFIED] RETURNS [UNSPECIFIED] ■ 
BEGIN OPEN AUoDefs, InlineDefs; 

mds: LP » LOOPHOLE[LongMuU[DDptr .mdsContext , PageSize]]; 
RETURN[LongREAD[LOOPHOLE[mds+CARDINAL[a],LA]]] 
END; 

AWRITE, MWRITE, SWRITE: PUBLIC PROCEDURE [a: UNSPECIFIED, v: UNSPECIFIED] ■ 
BEGIN OPEN AUoDefs, InlineDefs; 

mds: LP - LOOPHOLE[LongMun[DDptr .mdsContext, PageSize]]; 
LongWRITE[LOOPHOLE[mds+CARDINAL[a],LA], v]; 
RETURN 
END; 

RealMemory: PROCEDURE [mempage: CARDINAL] RETURNS [BOOLEAN] - 
BEGIN 

IF DDptr.onDO THEN RETURN[ReadMap[mempage] ^ Vacant]; 
IF DDptr.altoXM THEN RETURN[mempage < 1024]; 
ERROR NonExistentMemoryPage[mempage] ; 
END; 

ReadVM: PROCEDURE [mempage: CARDINAL, p: LA] RETURNS [UNSPECIFIED] - 
BEGIN 

IF DDptr.onDO THEN RETURN[RBL[p]] ; 
IF DDptr.altoXM AND Bound[DebugXMDef s .XMRead] THEN 

RETURN[DebugXMDefs.XMRead[LOOPHOLE[p]]]; 
ERROR InvalidAddress[p]; 
END; 

WriteVM: PROCEDURE [mempage: CARDINAL, p: LA. v: UNSPECIFIED] - 
BEGIN 
IF DDptr.onDO THEN 

BEGIN 

oldm: MapEntry <- SETF[mempage, Vacant]; 

[] ♦- SETF[mempage, Clean]; 

WBL[v, p]; 

IF ~oldm. flags .W THEN oldm. flags. D <- TRUE; -- wait for hardware change 

oldm. flags, Ref ♦- TRUE; 

[] ^ SETF[mempage, oldm]; 

RETURN 

END; 
IF DDptr.altoXM AND Bound[DebugXMDef s .XMWri te] THEN 

BEGIN DebugXMDefs. XMWri te[LOOPHOLE[p], v]; RETURN END; 
ERROR InvalidAddress[p]; 
END; 

WritePilot31Page: PROCEDURE [address: POINTER, vda: CARDINAL, fileid: PilotFID, filepage: CARDINAL] 

BEGIN 

label: PilotDiskLabel ; 

MiscDefs.Zero[@label , SIZE[PilotDiskLabel ]] ; 

label .fid ^ fileid; 

label. page <- filepage; 

MoveDiskPage[write, Real31DA[vda] , ©label, address]; 

END; 

ReadMap: PROCEDURE [mempage: CARDINAL] RETURNS [MapEntry] » 
BEGIN 

m: MapEntry « SETF[mempage, Vacant]; 
[] <- SETF[mempage, m]; 
RETURN[m] 
END; 

-- low level disk driver 
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DS: TYPE ■ DiskDefs.DS; 

KCB: TYPE « MACHINE DEPENDENT RECORD [ 
next: POINTER TO KCB. 
status: DS, 
command: DiskDefs.DC, 
header: POINTER TO DiskDefs.DH, 
label: POINTER, 
data: POINTER, 
normalbits: WORD, 
errorbits: WORD, 
unused: WORD, 
da: DiskDefs.DA]; 

nil: POINTER TO KCB - LOOPHOLE[0]; 

MaskDS: PROCEDURE [DS,DS] RETURNS [DS] = LOOPHOLE[Inl ineDefs .BITAND] ; 

DSnoStatus: DS « LOOPHOLE[0]; 

DiskOp: TYPE " {read, write}; 

diskCommands: POINTER TO POINTER TO KCB « L00PH0LE[521B] ; 

MoveDiskPage: PROCEDURE 

[op: DiskOp, da: DiskDefs.DA, label, data: POINTER] = 
BEGIN OPEN DiskDefs; 
header: DH <- [0,da]j 
kcb: KCB ♦- [ 

next: nil, status:, command:, 
header: ©header, label: label, data: data, 
normalbits: 0, errorbits: 0, unused: 0, 
da:]; 
seekonly: DC = [110B,DiskCheck,DiskCheck,DiskCheck, 1,1] ; 
move: DC ^ [110B,DiskCheck,DiskCheck,DiskRead,0, 1] ; 
tries: CARDINAL; 

IF op » write THEN move. data <- DiskWrite; 
FOR tries IN [0. .5] DO 

UNTIL diskCommandst « nil DO NULL ENDLOOP; 
kcb. status ^ DSnoStatus; 
kcb. command ^ move; 
kcb .da <- da; 
diskCommandst 4- 0kcb; 

UNTIL kcb, status. done # DO NULL ENDLOOP; 
IF MaskDS[kcb. status, DSmaskStatus] « DSgoodStatus THEN EXIT; 
IF tries « 2 THEN 
BEGIN 

kcb. status ♦- DSnoStatus; 
kcb. command ^ seekonly; 
kcb. da ^ [0.0,0,0,1]; 
diskCommandst ^ Qkcb; 
END; 
REPEAT FINISHED «> ERROR Unrecoverabl eDiskError[NIL] ; 
ENDLOOP; 
END; 

Real31DA: PROCEDURE [vda: CARDINAL] RETURNS [da: DiskDefs.DA] ■ 
BEGIN OPEN InlineDefs; 
da ♦- [0,0,0,0,0]; 

[vda, da. sector] <- DIVMOD[vda, 12]; 
[vda, da. head] ^ DIVMOD[vda, 2]; 
[da. disk, da. track] ^ DIVMOD[vda, 203]; 
END; 

-- initialization 

InitializeDebuggerFiles: PUBLIC PROCEDURE [debuggee: SegmentDef s . FileHandle] 
BEGIN OPEN AltoFileDefs, DiskDefs, SegmentDefs; 
p: POINTER: 

diskrequest: DiskRequest; 
diskrequest <~ DiskRequest [ 

ca: SystemDefs . AllocatePages[l] , 

fixedCA: TRUE, 

da: 0DiskAddresses[O], 

fp: ©debuggee. fp, 
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firstPage: 0, 

lastPage: 255, 

action: ReadD, 

lastAction: ReadD, 

signalCheckError: FALSE, 

option: update[BFSDef s .GetNextDA]] ; 
p <- LOOPHOLE[©DiskAddresses[0]-l]; 
pt <- f illinDA; 

InlineDefs.COPY[from: p, to: p+1, nwords: 257]; 
DiskAddresses[0] ^ debuggee ,fp. leaderDA; 
[] *- BFSDefs.ActOnPages[LOOPHOLE[@diskrequest]]; 
SystemDef s. FreePages[diskrequest.ca]: 
InitCoreC ache [debuggee]; 
END; 



END.,. 



